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(57) Abstract: Problems associated with handling industrial automation control code created using graphical programming lan- 
guages, principally the absence of any standard storage format or any user-readable one, are addressed by providing methods and 
computer program products for storing industrial automation code generated using graphical programming languages in a format that 
permits human readability, is supported by available viewing technology (e.g., browsers), is easy and fast to parse, and that supports 
hierarchical information structures. The methods and computer program products according to the invention involve converting 
a program written in a graphical programming language and stored during execution in computer memory in a non-standardized 
internal binary representation into a mark-up language format, for example, the extensible mark-up language ("XML"), storing, 
transmitting, receiving and inspecting the program stored in this manner, and converting the stored program back into the graphical 
programming language internal representation. 
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TITLE OF INVENTION 

INDUSTRIAL AUTOMATION SYSTEM GRAPHICAL 
PROGRAMMING LANGUAGE STORAGE AND 
TRANSMISSION 

5 

CROSS-REFERENCE TO RELATED APPLICATIONS 
This application claims benefit from U.S. Provisional Patent Application 
No. 60/192,147, filed March 24, 2000, under 35 U.S.C. § 119(e). 

10 

FIELD OF THE INVENTION 
The present invention relates generally to graphical programming 
languages for programmable logic controllers. In particular, the invention 
is concerns a method and system for standardized storage of graphical 
programming languages. 

BACKGROUND 

Graphical programming languages are widely used in the field of 
20 industrial automation. They provide an intuitive way for automation engineers 
to specify the control logic for an industrial control application to be run by a 
controller, usually a programmable logic controller ("PLC"). A PLC may 
comprise dedicated hardware or, alternatively, be implemented in software on 
a conventional personal computer, the latter being sometimes referred to as a 
25 PC-based PLC. The term PLC will be used here to describe either type of 
industrial controller. 

Existing graphical programming systems for industrial automation 
control software typically provide a graphical editor that embodies features 
that are well-known in the context of text editing. Using a system of this kind, 
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an automation engineer interacts with an editor to select icons from a menu in 
such a manner as to structure the control flow for the controlled industrial 
process, set conditions to be observed in that control, and so forth. The 
symbols available for use via the editor correspond to the particular graphical 
5 programming language being used, among which languages are: ladder 
logic, function block diagrams, sequential function charts and flowcharts, and 
languages if any embodying other formalisms. The graphical symbols 
depicted for the engineer by these editors are represented, when stored on a 
hard drive, for example, by the computer system on which the editor runs, in a 

10 private or internal binary form, here referred to as an "internal representation", 
which is essentially a set of software objects that use volatile memory (RAM) 
(hereinafter referred to as "memory" or "computer memory") and have 
associated code. This internal representation is specific or private to the 
software vendor, rather than being standardized. 

15 When an industrial control program is deemed sufficiently complete to 

be debugged, or to be run on the PLC, the system compiles the internal 
representation to arrive at another binary form that is more readily usable by 
the PLC. In some systems, this compilation step is direct; in others, several 
layers of compilation are used for reasons unrelated to the present invention. 

20 Some of the graphical programming languages in use today are the 

subject of international standards, such as are defined in IEC 61 1 31 . In 
contrast to textual programming languages, however, which can be stored in 
a computer file exactly as the user typed them (i.e., in a serialized form), there 
is no commonly agreed upon storage format for graphical programming 

25 languages. The representations used in existing graphical language 
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programming systems for industrial control applications, moreover, are not 
generally human-readable. Nor are they are available in a format capable of 
being interpreted by a browser, such as Internet Explorer 5, or one that is 
easily or quickly parsed. 

5 The known ways of attempting to address these shortcomings have 

involved the use of one or another binary format, which has the disadvantage 
of being private and unreadable with a standard word-processor. 
Alternatively, a proprietary text format, while capable of being more readable, 
must be fully defined. That is, it must be shown to follow the rules of a 

10 programming language ("grammar"). In order to understand such a program 
after reading it from a file, a full-blown parser must be written. These 
shortcomings have limited the utility of programs created using graphical 
programming systems and placed constraints on the process of developing 
control programs. 

15 

SUMMARY OF THE INVENTION 

The present invention is directed at overcoming the shortcomings of 
existing industrial automation graphical programming systems described 

20 above by providing methods and computer program products for storing 
graphical, industrial automation programs in a standard format, one that is 
serialized, relies on a text-based language (i.e., a mark-up language), 
includes tags or analogous functionality for identifying items, and that has as 
the ability to describe data hierarchically. More specifically, the present 

25 invention provides a mechanism that is standardized, readable by a human, 
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an automation engineer interacts with an editor to select icons from a menu in 
such a manner as to structure the control flow for the controlled industrial 
process, set conditions to be observed in that control, and so forth. The 
symbols available for use via the editor correspond to the particular graphical 
5 programming language being used, among which languages are: ladder 
logic, function block diagrams, sequential function charts and flowcharts, and 
languages if any embodying other formalisms. The graphical symbols 
depicted for the engineer by these editors are represented, when stored on a 
hard drive, for example, by the computer system on which the editor runs, in a 

10 private or internal binary form, here referred to as an "internal representation", 
which is essentially a set of software objects that use volatile memory (RAM) 
(hereinafter referred to as "memory" or "computer memory") and have 
associated code. This internal representation is specific or private to the 
software vendor, rather than being standardized. 

is When an industrial control program is deemed sufficiently complete to 

be debugged, or to be run on the PLC, the system compiles the internal 
representation to arrive at another binary form that is more readily usable by 
the PLC. In some systems, this compilation step is direct; in others, several 
layers of compilation are used for reasons unrelated to the present invention. 

20 Some of the graphical programming languages in use today are the 

subject of international standards, such as are defined in IEC 61 131 . In 
contrast to textual programming languages, however, which can be stored in 
a computer file exactly as the user typed them (i.e., in a serialized form), there 
is no commonly agreed upon storage format for graphical programming 

25 languages. The representations used in existing graphical language 
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programming systems for industrial control applications, moreover, are not 
generally human-readable. Nor are they are available in a format capable of 
being interpreted by a browser, such as Internet Explorer 5, or one that is 
easily or quickly parsed. 

5 The known ways of attempting to address these shortcomings have 

involved the use of one or another binary format, which has the disadvantage 
of being private and unreadable with a standard word-processor. 
Alternatively, a proprietary text format, while capable of being more readable, 
must be fully defined. That is, it must be shown to follow the rules of a 

10 programming language ("grammar"). In order to understand such a program 
after reading it from a file, a full-blown parser must be written. These 
shortcomings have limited the utility of programs created using graphical 
programming systems and placed constraints on the process of developing 
control programs. 

15 

SUMMARY OF THE INVENTION 

The present invention is directed at overcoming the shortcomings of 
existing industrial automation graphical programming systems described 

20 above by providing methods and computer program products for storing 
graphical, industrial automation programs in a standard format, one that is 
serialized, relies on a text-based language (i.e., a mark-up language), 
includes tags or analogous functionality for identifying items, and that has as 
the ability to describe data hierarchically. More specifically, the present 

25 invention provides a mechanism that is standardized, readable by a human, 
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supported by existing browser technology (e.g. Microsoft Internet Explorer 5 
( u IE5")) f is easy and fast parsing, and that supports hierarchical information 
structures. 

The present invention also provides methods, systems and computer 

5 program products that permit industrial automation control programs, once 
created in whole or in part, to be transmitted over a network in an easily- 
displayed and apprehended form. The program code stored in this standard, 
readable form can be transmitted over a network to, or received from, a 
plurality of computer systems. In addition, markup language schemas (or 

io analogous definitions) describing content models for markup language files 
generated by graphical programming language applications can be made 
available to a plurality of developers by posting, for example, on an internet 
site. This approach is intended to permit, among other advantages, 
distributed generation of industrial automation program code or applications. 

is In addition, or alternatively, code generated by a first system employing 

a first internal representation of code generated by a graphical programming 
language can be converted to the markup-language (e.g., XML) format, 
transmitted to a second system employing a second internal representation of 
the code, and there be reconverted to the second internal representation. 

20 The present invention, in this embodiment, is thereby capable of providing 
interoperability between systems. 

Accordingly, an embodiment of the present invention provides a 
method for representing industrial automation computer program code 
created using a graphical programming language tool that stores the created 

25 code in computer memory in an internal representation during execution. The 
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method comprises the steps of identifying industrial automation code in 
computer memory in the internal representation and converting the code from 
the internal representation to a markup language format. 

Another embodiment of the present invention involves a computer 
5 program product used in conjunction with a computing device for creating 
industrial automation system control program code with a graphical language 
programming tool and storing the code in a computer memory in an internal 
representation during execution. The computer program product comprises a 
computer usable medium comprising computer readable program code for 
10 identifying industrial automation system control program code stored in 
computer memory in the internal representation. The computer program 
product further comprises computer readable program code for converting the 
identified industrial automation control program code from the internal 
representation to a markup language format. 

is A further embodiment of the present invention involves a computer 

program product that comprises a computer-readable storage medium and 
has data stored on it that comprises a representation of industrial automation 
control code formatted in markup language. 

Another embodiment of the present invention relates to a computer 

20 program product for permitting a user to create industrial automation control 
programs. The product comprises a computer-readable storage medium 
having computer program code stored on it. The computer program code 
comprises industrial automation graphical programming language code. The 
graphical programming language code comprises an editor adapted to permit 

25 the user to create industrial automation control code using graphical 
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elements, the control code being stored in memory in an internal 
representation during execution; and computer program code for converting 
industrial automation control code, stored in memory in the internal 
representation, from the internal representation to a markup language format. 
5 In another embodiment of the present invention, a method is provided 

for communicating the logical structure of industrial automation control 
program data to permit a plurality of application developers to create 
applications relating to the data. The method comprises the steps of creating 
a schema defining a content model for markup language files generated by 

10 an industrial automation control program system and posting the schema for 
access over a network by the application developers. 

Still further, an embodiment of the present invention entails a method 
for providing industrial automation control code from a server system over a 
network to which the server system is coupled and to a client system also 

is coupled to the network. The method comprises the steps of accessing a 
markup-formatted version of the control code and transmitting the accessed, 
markup-formatted control code over the network in connection with a network 
address corresponding to the client system, thereby causing the transmitted, 
markup-formatted control code to be received by the client system. 

20 Yet another embodiment of the present invention relates to a method 

for programming industrial automation control applications comprising the 
steps of providing a computer system coupled to a network, configuring the 
first computer system to receive over the network transmissions of data from 
a plurality of industrial automation program developer systems, and receiving 



6 



WO 01/73546 PCT/US01/09429 

data from the plurality of industrial automation program developer systems 
program code in a markup language format. 



BRIEF DESCRIPTION OF THE DRAWINGS 
5 Figure 1 provides, in schematic form, an illustration of an embodiment 

of the computer program product according to the present invention in the 
context of an industrial automation control system that includes an industrial 
automation control programming system. 

Figure 2 provides, in schematic form, an illustration of an embodiment 
10 of a conversion process according to the present invention. 

Figure 3 provides an illustration of an object model for an internal 
representation of a flowchart which, according to an embodiment of the 
present invention, is to be converted into a markup format 

Figure 4 provides an illustration of an object model for an internal 
is representation of a flowchart body (corresponding to the flowchart object 
model of Figure 3) which, according to an embodiment of the present 
invention, is to be converted into a markup format. 

Figure 5 provides an illustration of an object model for an internal 
representation of a flowchart interface (corresponding to the flowchart object 
20 model of Figure 3) which, according to an embodiment of the present 
invention, is to be converted into a markup format. 

Figure 6 provides an illustration of an embodiment of a system for 
deploying computer program product according to the present invention and 
for performing an embodiment of one or more methods according to the 
25 invention. 
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DETAILED DESCRIPTION OF THE INVENTION 
The various embodiments of the invention briefly described above, 
and set forth in the appended claims, are described below with reference to 

5 the figures, as well as to the code provided at the end of the text. 

The present invention is directed to the creation of a standard, 
human-readable, preferably browser-readable representation of otherwise 
non-standardized representations of graphical programming language code 
for industrial automation. In a presently preferred embodiment of an aspect 

10 of the invention, XML is used as a standard storage format. XML, short for 
"the Extensible Markup Language", is a subset of the Standard Generalized 
Markup Language ("SGML") and is, essentially, a set of rules for defining a 
text based markup language. See, for example, XML IE5 Programmer's 
Reference, by A. Homer, WROX Press Ltd., 1999 and Applied XML: A 

15 Toolkit for Programmers, by A. Ceponkus and F. Hoodbhoy, John Wiley & 
Sons, Inc., 1999, the contents of which are herein incorporated by reference 
in their entirety. The invention is not limited to the use of XML, but can also 
be embodied with other markup languages corresponding to the definition set 
forth below 

20 Moreover, the present invention can be practiced using Microsoft 

Visual Studio 6.0, as well as Microsoft XML (available as part of Internet 
Explorer 5). 

For each graphical language used in the field of industrial 
automation, a set of XML tags, elements and attributes, as well as an XML 
25 schema (or document type definition "DTD") are defined. A specific computer 
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program, an example of which is described below for the conversion of a 
flowchart program to XML, is used to transform, convert or serialize the 
graphical program. 

A number of terms frequently used in this document are defined 

5 below. 

The term "data storage device/' as used here, refers to any medium 
for the computer-retrievable storage of data including, without limitation, 
memory (e.g., RAM), hard disk, compact disk, floppy disk, or other storage 
device. 

10 The term "computer program product", as used here, includes any 

product capable of retaining data that may include computer program code 
and that can be permanently or temporarily coupled to a computer system 
that can retrieve data from the computer program product. Computer 
program products include media that are sold to users of computer systems 

15 so that the computer systems can operate in accordance with content stored 
on them. The term also encompasses hardware coupled to a computer 
system onto which content has been downloaded, for example, over a 
network, so that the computer system can operate in accordance with that 
content. 

20 The term "editor command", as used here, encompasses any 

command typically associated with known editors and involving the 
manipulation of text, code or the like, the commands including, for example, 
cut, copy, paste, move, delete, save, save as, undo, redo, and so forth. 
The term "graphical programming language", as used here, 

25 includes ladder logic, function block diagrams, sequential function charts and 



9 



WO 01/73546 PCT/US01/09429 

flowcharts and other graphical languages, whether now in existence or yet to 
be developed. 

The term "markup-formatted", as used here, refers to the state of 
having been stored in a markup language format or having been converted 
5 (e.g., from a graphical programming language internal representation) to a 
markup language format (markup being used in the sense defined above). 

The term "markup language", as used here, refers to text-based 
mark-up languages including but not limited to those that are subsets of the 
Standard Generalized Markup Language, SGML, which use elements that 
10 comprise a string of characters, including an individual character string that 
defines the opening or closing part of the element (corresponding to the term 
"tag" in XML usage), a name and value pair enclosed within the element's 
opening character string or tag, the element attribute names and their values, 
the content of the element and any closing tag, a character string that defines 
is the opening or closing part of an element 

The term "network" refers, in a preferred embodiment of the 
invention, to an internet, but also encompasses any type of data 
communication network, whether wired or wireless. 

An embodiment of the computer program product according to the 
20 present invention is shown in schematic form in Figure 1 . In that figure, the 
computer program product is depicted in the context of an industrial 
automation control system, including an industrial automation control 
programming system 10, an industrial controller system 20 and a controlled 
process 30. Industrial controller system 20 may be a PLC that is separate 
25 hardware from the computer on which the programming system 10 runs; 



10 



WO 01/73546 PCT/US01/O9429 

alternatively, industrial controller system 20 and programming system 10 
could be implemented on the same computer device (e.g., embodying what is 
often referred to as a "PC-based PLC"). The typical programming system, 
which nowadays allows an industrial automation engineer to program with 
5 graphical tools (flowchart elements, for one of several examples), includes an 
editor 12. Editor 12, when operated by an automation engineer, graphically 
displays, in whatever formalism it uses, the program created by the engineer. 
At the same time, it causes the creation and storage in a computer memory of 
an internal representation (as elaborated upon in Figure 2 and the 

10 accompanying text). 

The control programming system 10 (one example of which is Step 7® 
, developed and marketed by Siemens A.G. and Siemens Energy & 
Automation, Inc.) also may include are one or more compilers 14, which 
convert, either directly or indirectly, the internal representation created using 

is the editor 12 into a form that is understandable by the controller 22 of 

industrial controller system 20. Using the compiled result, and based also on 
clock data (not shown) and on input received from controlled process 20, 
controller 22 generates control instructions for running process 30. In 
addition, the compiled code understandable by controller 22 can be stored on 

20 data storage device 26, that is coupled to (or is part of) industrial controller 
20. 

Another component of programming system 10, according to an 
embodiment of the present invention, is a converter 16 for converting the 
internal representation of control programs generated by editor 12 to a 
25 markup language format (e.g., XML). The operation of converter 16 is 
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elaborated upon below in connection with Figure 2 and in the appended 
source code. The markup language formatted code generated by converter 
16 can be stored either on data storage device 26, with assistance of 
identification and location program code 24 running on industrial controller 20, 

5 or, alternatively, can be transmitted to network 40 and, via that network, to 
other systems (not shown). 

Figure 2 provides, in schematic form, an illustration of the steps 
according to an embodiment of a method 50 according to the present 
invention. A sample of a flowchart program 52 (e.g., generated by editor 12 

10 of Figure 1) is given an internal representation 60 that is usually in binary 
format, which is held in memory (RAM) (not shown) during execution of the 
program. The internal representation 60 is, in general, specific to the vendor 
of the graphical programming language system 10, is not readable by a 
human, is not readable using a word-processor, nor using a browser. 

15 The internal representation is converted (or "serialized") into the format 

of a suitable markup language (as set forth in the corresponding definition, 
above). Once converted, the graphical program is available in a markup- 
formatted form 64 (an example of which embodying XML is shown in Figure 
2) and can be stored (e.g., in data storage device 26 of Figure 1 and Figure 

20 6). This markup-formatted form 64 of the graphical programming language 
code, originally represented at 52, can be sent directly to a monitor or display 
28, where it can be viewed with known viewing software, including word 
processing or browser software. It can also be sent to printer 68, to create a 
human-readable hardcopy. Alternatively, it could be sent over a network 40 

25 to another computer 70, which may have an associated interface 72. 
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Computer 70 could be devoted, for example, to permitting development of 
control programs, which can then be converted and transmitted or re- 
transmitted (although not necessarily in that order) to an industrial controller 
20, programmed using graphical programming language system 10, where it 
can then be deployed. 

When it becomes necessary to edit or compile an industrial automation 
program code that is already in markup format, at reference numeral 64, the 
markup-formatted code 64 is converted back (or "deserialized") from markup 
language representation to the internal representation 60 (see, e.g., source 
code appended below). 

The steps of the method of Figure 2 may be invoked any time it is 
convenient or necessary to store or view, or to transmit to others for storage 
or viewing, a graphical industrial control program in a standardized 
representation. For example, any time an item is selected using an editing 
function, such as drag and drop, copy, cut, paste, undo, redo, etc., the 
conversion can be performed, creating a markup language (e.g., XML) string 
in memory that can be placed, for example, on a clipboard for transfer 
elsewhere. If a "save" were to be done to a graphical industrial automation 
program, or part of one, it would be converted, at 62, to markup format (e.g., 
XML) and saved in a file, for example, on storage device 26 of Figure 1. 
Upon file "open" command being invoked relative to that stored, markup- 
formatted file, the file would be read and converted, at 66, back to the internal 
representation. 

Figure 3 provides an illustration of an object model for an internal 
representation of a graphical programming language formalism. As in Figure 
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2, reference numeral 52, a flowchart formalism, is used for purposes of 
illustration. The corresponding internal representation, reference numeral 60 
in Figure 2, is to be converted into a markup format. This object model, of 
flowchart type (FChType) may, like the other object models, be implemented 
5 using COM ("Common Object Model") technology, available from Microsoft 
Corp., or other suitable tools (See Class FChType, in the appended source 
code, below). Object FChType includes within its structure a flowchart body 
object, FchBody, and an interface object, Fchlnterface, both in a one-to-one 
aggregation relationship with object FChType. (See legend in Figure 3). 

10 Figure 4 provides an illustration of an object model for an embodiment 

of the present invention, specifically focusing on an object model of a 
flowchart body, FChBody corresponding to the object model illustrated in 
Figure 3. Body object FChBody stands in a one-to-one aggregation 
relationship to a flowchart elements object, FChElements, as well as with a 

is flowchart links element, FChLinks, the latter being in a one-to-many 
aggregation relationship with a flowchart link element, FCHLink. 
FChElements, in turn, stands in a one-to-many aggregation relationship with 
one or more FChElement instances, each of which is related FChLink. A 
FChLink object connects 2 FChElement objects, a SourceElement to a 

20 TargetElement. 

Each FChElement stands in a one-to-one aggregation relationship with 
an FCh Instance object, which in turn stands in a one-to-one aggregation 
relationship with a FChAssignments object. Each FChAssignments object 
stands, in turn, in a one-to-many aggregation relationship with one or more 

25 FChAssignment objects. 
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Figure 5 provides an illustration of an object model for an embodiment 
of the present invention, specifically focusing on an object model of a 
flowchart interface, corresponding to the object model illustrated in Figure 3. 
The FChlnterface object stands in a one-to-one aggregation relationship with 
5 FChlnterfaceltems object, and in a one-to-many relationship with the 

FChlnterfaceltem. Moreover, FChlnterfaceltems object is in a one-to-many 
FChlnterfaceltem object. 

Referring again to Figure 2, the internal representation 60, described 
above in connection with Figures 3, 4 and 5, is converted at reference 
10 numeral 62 to a suitable markup language format, for example XML. See the 
commented source code, below, for further detail. 

Figure 6 provides an illustration of an embodiment of a system for 
deploying computer program product according to the present invention and 
for performing an embodiment of one or more methods according to the 
15 present invention. An industrial automation programming and control system 
18, which can include or incorporate a PLC 20 (as shown by the dotted lines) 
is coupled to a display 28, to at least one data storage device 26 and to a 
controlled process 30. In addition, it is coupled to a network 40, over which it 
can communicate with other computers also connected directly or indirectly to 
20 the same network 40. For example, industrial automation programming and 
control system 18 can be in communication over network 40 with a remote 
computer 70 having a display 72 and data storage device(s) 74, or with a 
plurality of such computers, one of which is shown at reference numeral 80, 
also having a display 82 and data storage device(s) 84. 
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By using the conversion approach shown in Figure 2 and described in 
the accompanying text, not only can markup-formatted code be easily viewed 
at the site where it was created, but can easily be sent over a network 40 to 
another computer 70, where an operator may, using display 72, readily 

5 examine the code on the display, using a browser, for example. If the 
operator were an industrial automation controls engineer or developer of 
industrial automation control code, that operator could generate program 
code on computer 70 that could subsequently be converted to markup format 
and transmitted or re-transmitted (although not necessarily in that order) to an 

10 industrial automation programming and control system 18 or controller 20. 
The same could be done using computer 80, or via any number of computers 
in communication over network 40 with automation programming and control 
system 18. 

Communications over network 40, preferably although not necessarily 
15 an internet, between various involved computers depicted in Figure 6 can be 
done in any suitable manner including, without limitation, via downloading of 
pages using hypertext transfer protocol, or even via sending electronic mail 
messages. 

Given (his configuration, in an embodiment of an aspect of the present 
20 invention, computer 70 could be considered an industrial automation control 
code server system coupled over a network to a client system 1 8. Computer 
70 accesses a markup-formatted version of the control code, transmits the 
accessed, markup-formatted control code over the network in connection with 
a network address corresponding to system 18, thereby causing the 
25 transmitted, markup-formatted control code to be received by the client 
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system. Moreover, system 18, in response to the received markup-formatted 
control code, may transmit to computer 70 over the network 40 data relating 
to the automation to which the markup-formatted control code is directed. 
Furthermore, computer 70 can generate or otherwise access control code 
modified in response to receipt of the data from system 18, wherein the 
modified control code is markup-formatted. In addition, the markup- 
formatted, modified control code can be transmitted over the network in 
connection with a network address corresponding to the system 18, thereby 
causing the transmitted, modified, markup-formatted control code to be 
received by the system 18. 

Figure 6 depicts an embodiment of another aspect of the present 
invention involving a method for communicating the logical structure of 
industrial automation control program data to permit a plurality of application 
developers to create applications relating to the data. According to the 
method, a schema (or analogous data) (see source code for an example 
schema appended below) defining a content model for markup language files 
generated by an industrial automation control program system (e.g., XML) is 
posted for access over network 40 (e.g., internet). Application developers 
using, for example, computers 70, 80 and 90, can then access and 
understand the logical structure of the graphical programming language data 
and can write their own applications. Developers and systems that 
communicate with one another using the standardized format according to the 
present invention need not use identical internal representations 60 of the 
automation system control code, provided that their conversion program takes 
into account the particulars of the internal representations 60 they do use. 



17 



WO 01/73546 PCT/US01/09429 

Figure 6 also describes a system in which a method for providing 
industrial automation control code services can be implemented. Assuming 
computer 70 can be considered a server running software permitting the 
creation of markup-formatted industrial automation control code (e.g., 
5 reference numeral 62 of Figure 2), computer 70 can access such a markup- 
formatted version of the control code and transmitting the accessed, markup- 
formatted control code over the network 40 to a client system, for example, 
computer 18 in connection with a network address corresponding to computer 
18, thereby causing the transmitted, markup-formatted control code to be 

10 received by the client system 1 8. 

Client system 18, which (possibly along with PLC 20), controls process 
30, may, in response to receiving the markup-formatted control code (e.g., 
reference numeral 62), may transmit to the server system 70 data relating to 
the automation to which the markup-formatted control code is directed. 

is Server system 70 may modify code it is generating or has generated and, 
where it has access to automation system control code modified in response 
to receipt of system data from the client system 18, it may transmit the 
markup-formatted, modified control code over the network in connection with 
a network address corresponding to the client system 18, thereby causing the 

20 transmitted, modified, markup-formatted control code to be received by client 
system 18. 

In another embodiment of the present invention, the foregoing method 
may involve a second client system 90 coupled to the network. Server 70 
would transmit the accessed, markup-formatted control code (62, Figure 2) 
25 over network 40 in connection with a network address corresponding to the 
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second client system 90, thereby causing the transmitted, markup-formatted 
control code to be received by the second client system 90. 

In yet another embodiment of the present invention, which 
demonstrates the potential for increased interoperability of systems, the first 
5 client system 1 8 may be configured to reconvert the markup-formatted control 
code to a first internal representation, while the second client system 96 is 
configured to reconvert the markup-formatted control code to a second 
internal representation. 

Finally, Figure 6 also is directed to a method for programming industrial 
10 automation control applications using a plurality of distributed applications 
developers. A computer system 18 is provided and coupled to a network 40 
and configured to receive over the network 40 transmissions of data from a 

plurality of industrial automation program developer systems 70 80, the . 

transmissions comprising data from program developer systems 70 80, in a 

is markup language format. 

In addition to the embodiments of the aspects of the present invention 
described above and in the XML schema and source code listings set forth 
below, those of skill in the art will be able to arrive at a variety of other 
arrangements and steps which, if not explicitly described in this document, 
20 nevertheless embody the principles of the invention and fall within the scope 
of the appended claims. 
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Example of a Flowchart program in XML: 

<?xml version="1.0" ?> 

<ChartSource ExecutableTypeName="FUNCTION_BLOCK"> 
<lnterface> 
5 <Section Name= , VAR_INPUT , > 

<ltem Name="Enabled" Mode="ReadOnly" Type="Bool" lnit='TRUE7> 
<ltem Name="Frozen" Mode="ReadOnly" Type="Bool" lnit="FALSE"/> 
</Section> 

<Section Name='VAR_OUTPUT> 
10 <ltem Name="Active ,, Mode="ReadOnly" Type="Bool" I nit="FALSE"/> 
</Section> 

<Section Name="VAR"> 

<ltem Name="lndex" Mode="ReadOnly" Type="lnt" lnit="0"/> 
<ltem Name= M lnternal" Mode="ReadOnly" Type="Struct"> 
15 <ltem Name="Trace" Mode= ,, ReadOnly ,, Type="Array [1 ..32] of Bool7> 
<ltem Name="CurrentStep" Mode="ReadOnly" Type="lnt" lnit="07> 
</ltem> 

<ltem Name="xxx" Mode="ReadOnly" FChType^Called" Type="FB167> 
</Section> 
20 </lnterface> 
<Body> 
<Elements> 

<Element Number="0" Type="TBegin" Caption="Begin"/> 

<Element Number="1" Type="TEnd" Caption="End7> 
25 <Element Number="2" Type='TSubChart" Caption='Test1 "> 

instance Name=" Testl" lnterfaceVersion="14" ChartType="Called M > 

<Assignment Name="BoolPara" Value=""/> 

<Assignment Name="lntPara" Value="7> 

</lnstance> 
30 </Element> 

</Elements> 

<Links> 
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<Link Number="1" SourceElement="2" TargetElement="1" lndex="0" 
Caption="7> 

<Link Number="2" SourceElement="0" TargetElement="2" lndex="0" 
Caption=""/> 
5 </Links> 
</Body> 
</ChartSource> 

The XML string can be validated using an XML-Schema. A schema 
i o describes the elements and attribute allowed in an XML file. 
Example: Schema file for a flowchart 
<Schemaxmlns="urn:schemas-microsoft-com:xml-data" 
xmlns:dt="um:schemas-microsoft-com:datatypes"> 

is <ElementType name="Comment" content="textOnly"/> 

<AttributeType name="Name" dt:type="string'7> 
<AttributeType name='Value" dt:type="string"/> 

20 <ElementType name='Attribute" content="empty"> 
<attribute type="Name" required="yes"/> 
ottribute type="Value" required="yes"/> 
</ElementType> 

25 <ElementType name= , Attributes' , content="eltOnly"> 
<element type="Attribute" maxOccurs="*"/> 
</ElementType> 

<AttributeType name="Mode" df-type^'enumeration" dt:values="Mixed 
30 Readonly Edit7> 

<AttributeType name="Type" dt:type="string'7> 
<AttributeType name="lnit" dt:type="string"/> 
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<ElementType name="ltem" content="eltOnly"> 

<attribute type="Name n required="yes7> 

<attribute type="Mode" required="yes7> 

<attribute type="Type" required="yes7> 
5 attribute type="lnit7> 

<element type= ,, Comment ,, minOccurs="07> 

<element type-'Attributes" minOccurs="07> 

<element type="ltem" minOccurs="0" max0ccurs= M *7> 
</ElementType> 

10 

<ElementType name="Section" content="eltOnly"> 
<AttributeType name-'Name" dt:type- 'enumeration" 
dt:values='VARJNPUT VARJDUTPUT VARJN_OUT VAR VAR_TEMP7> 
<attribute type="Name" required="yes7> 
is <element type="ltem" minOccurs="0" max0ccurs="*7> 
</ElementType> 

<ElementType name="lnterface" content= n eltOnly"> 
<element type="Section" maxOccurs="*7> 
20 </ElementType> 

<ElementType name="Assignmenf content="empty"> 
<attribute type= M Name" required="yes7> 
<attribute type-Value" required="yes7> 
25 </ElementType> 

<AttributeType name^'ChartType" dt:type= ,, string"/> 

<ElementType name="lnstance" content="eltOnly"> 
30 <attribute type="Name" required="yes7> 

<attribute type="ChartType" required="yes"/> 

<element type="Assignment M max0ccurs="*7> 
</ElementType> 
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<ElementType name="SourceCode" content="textOnly7> 

<AttributeType name="Number" dt:type="int'7> 
5 <AttributeType name="Caption M dt:type="string" default= n "/> 

<ElementType name="Element" content="eltOnly"> 
ottribute type="Number" required="yes"/> 
attribute type="Type" required="yes7> 
10 <attribute type="Caption" required="no"/> 
<group minOccurs="0" order="one"> 
<group order="seq"> 
<element type="Comment"/> 
<element type="SourceCode"/> 
is </group> 

<element type="lnstance" maxOccurs="*"/> 
</group> 

</ElementType> 

io <ElemehtType name="Elements" content="eltOnly"> 
<element type="Elemenf' max0ccurs="*7> 
</ElementType> 

<AttributeType name="SourceElement" dt:type= ,, int"/> 
5 <AttributeType name= , TargetElement" dt:type="inf7> 
<AttributeType name="lndex" dt:type="int7> 

<ElementType name="Link" content="empty"> 
<attribute type="Number" required="yes"/> 
) <attribute type="SourceElement" required="yes"/> 
<attribute type="TargetElement" required="yes"/> 
<attribute bype= ,, lndex" required="yes'7> 
<attribute type="Caption"/> 
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</ElementType> 

<ElementType name^'Links" content="eltOnly"> 
<element type="Link" max0ccurs="*7> 
5 </ElementType> 

<ElementType name= M Body" content="eltOnly n order= u seq"> 
<element type="Elements7> 
<element type="Links , 7> 
10 </ElementType> 

<AttributeType name= M ExecutabieTypeName" dt:type="string7> 

<ElementType name="ChartSource" content= M eltOnly" order="seq"> 
1 5 <attribute type="ExecutableTypeName" required-'yes7> 
<element type="lnterface"/> 
<element type="Body7> 
</ElementType> 

20 </Schema> 

This embodiment of a schema describes the content model for XML 
files generated by converting a flow chart application. Such a schema can be 
posted, over a network, for example, so that other users can understand the 
25 logical structure of the flow chart data and thereupon write applications 

manipulating this data in a way they see fit. Like Document Type Definitions 
(DTD's), which might be considered their predecessors, schemas provide a 
way of describing the structure of XML data. Schemas may be preferable to 
DTDs, in that, unlike DTDs, they use a syntax to that of XML. Also, they allow 
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a more precise description than do DTDs, because they incorporate data 
typing and inheritance. 

The following is, for an embodiment of the present invention, a 
description of the requirements a document must meet to be validated by 
5 flwschma.xml, starting with the root element <ChartSource>: 
(Note: All attributes are of type 'string* unless otherwise stated.) 

> <ChartSource> - The schema's root element, <ChartSource> requires an 
"ExecutableTypeName" attribute, one <lnterface> element, and one <Body> 
element. 

0 > <lnterface> - This element requires at least one <Section> element. 

> <Section> - This element requires a "Name" attribute. "Name- 
must have one of the following values: VARJNPUT, 
VAROUTPUT, VAR_IN_OUT, VAR, VAR_TEMP. There may be 
any number of <ltem> elements. 
> > <ltem> - This element requires "Name," "Mode," and "Type" 

attributes. "Mode" must have one of the following values: 
Mixed, Readonly, Edit. The following are optional: an "Init" 
attribute, one <Comment> element, one <Attributes> element, 
and any number of <ltem> elements. 

1 > <Comment> - This element contains text only. 

> <Attributes> - This element requires at least one <Attribute> 
element. 

> <Attribute> - This element requires "Name" and "Value" 
attributes. 

> <Body> - This element requires one <Elements> element and one 
<Links> element. 

> <Elements> - This element requires at least one <Element> 
element. 

> <Element> - This element requires "Number" and "Type" 
attributes. "Number" is of type 'int.' The following are optional: 
a "Caption" attribute, and either 1)the sequence of one 
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<Comment> element followed by one <SourceCode> element 
or 2)any number of <lnstance> elements. 

> <Comment> - This element contains text only. 

> <SourceCode> - This element contains text only. 

5 > <lnstance> - This element requires "Name" and "ChartType" 

attributes. Optional is any number of <Assignment> 
elements. 

> <Assignment> - This element requires "Name" and 
"Value" attributes. 

10 > <Links> - This element requires at least one <Link> element. 

> <Link> - This element requires "Number," "SourceElement," 
"TargetElement," and "Index" attributes. "Number," 
"SourceElement," "TargetElement," and "Index" are of type 'int.' 
Optional is a "Caption" attribute. 

15 

Source Code 
Class FChType 

'* Creates a FChType object from a XML string 
■* NewContents contains the XML string 

On Error GoTo ErrorHandler 
25 Dim strContents As String 

Dim regserv As FChRegServer.FChRegistry 

Dim strTemplateFolder As String 

Dim xmlns As String 

Dim FileName As String 
30 Dim fso As Scripting.FileSystemObject 

strContents = NewContents 

If Mid$(strContents, 1,1) = ChrW$(&HFEFF) Then 
strContents = Mid$(strContents, 2) 

End If 

35 Set fso = New Scripting.FileSystemObject 
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Set regserv = New FChRegServer.FCh Registry 
strTemplateFolder = regserv.GetTemplateFolderPath 
Set regserv = Nothing 

FileName = strTemplateFolder & "fbschema.xml" 
If fso.FileExists(FileName) Then 

xmlns = "<chartSource xmlns= i x-schema." & FileName & 

strContents = Replace$(strContents, "<ChartSource ", xmlns, 1.1, 
vbTextCompare) 
End If 

XMLReadProperties strContents 
Exit Property 
ErrorHandler: 

ErrorMessage Err.Number, "FChType.Contents", UNEXPECTED 
End Property 



Public Property Get Contents() As Variant 

* Gets the contents of a FChType object as XML string 

* Return value is the XML string representing this object. 

On Error GoTo ErrorHandler 
Dim strContents As String 
Dim b() As Byte 
If Initialized Then 

XMLWriteProperties strContents 

b = ChrW$(&HFEFF) & strContents 

Contents = b 
Else 

Contents = "" 
End If 

Exit Property 



27 



WO 01/73546 



PCT/USOt/09429 



ErrorHandler: 
Contents = Empty 

ErrorMessage Err.Number, "FChType.Contents", UNEXPECTED 
End Property 

5 

Private Sub XMLReadProperties(ByVal xml As String) 



'* Reads the object properties from a XML string 
10 '* xml contains the XML string 

On Error Goto ErrorHandler 
Dim objDOMDocument As MSXML. DOM Document 
Dim rootElement As MSXML. IXMLDOMEIement 
15 Dim childElement As MSXMLIXMLDOMEIement 
Dim childElements As MSXMLIXMLDOMNodeList 
Dim strTagName As String 
Dim strAddlnfo As String 
Dim ExecutableTypeName As String 
20 Set objDOMDocument = New MSXML.DOMDocument 
If objDOMDocumentloadXML(xml) Then 
Set rootElement = objDOMDocument.documentElement 
mExecutableType = XMLReadExecutableType(rootElement) 
Set childElements = rootElementchildNodes 
25 For Each childElement In childElements 

strTagName = childElement. TagName 
Select Case strTagName 
Case "Interface" 

If Not mlnterfaceLoaded Then 
30 mlnterface.XMLReadProperties childElement 

mlnterfaceLoaded = True 
End If 
Case "Body" 
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If Not mBodyLoaded Then 
mBody.XMLReadProperties childElement 
mBodyLoaded = True 
End If 
5 Case Else 

ErrorMessage ERRMOD_XML_TAG, 
TChType.XMLReadProperties", WARNING, strTagName 
End Select 
Next 
10 Else 

strAddlnfo = objDOMDocument.parseError.Reason 
On Error GoTo 0 

ErrorMessage ERRMODXMLPARSER, 

"FChType.XMLReadProperties", ALARM, strAddlnfo 
15. End If 

Exit Sub 

ErrorHandler: 

ErrorMessage Err.Number, "FChType.XMLReadProperties", 
UNEXPECTED 
20 End Sub 



Private Function XMLReadExecutableType(xmlElement As 
25 MSXML.IXMLDOMEIement) As FChExecutableType 

'* Reads the ExecutableType property from a XML object 
'* xmlElement contains the XML element 
'* Return value is the ExecutableType 
30 '*****************~*********************«^ 

On Error GoTo ErrorHandler 
Dim strExecutabletype As String 
strExecutabletype = XMLGetAttribute(xmlElement, 
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"ExecutableTypeName") 

If strExecutabletype = "FUNCTION_BLOCK" Then 

XMLReadExecutableType = FUNCTION_BLOCK 
Else 

5 ErrorMessage ERRMODJJNSUPPORTED_EXECUTABLETYPE, 

"FChType.XMLReadProperties", WARNING, _ 
strExecutabletype 
End If 

Exit Function 
10 ErrorHandler: 

XMLReadExecutableType = FUNCTION_BLOCK 

ErrorMessage ERRMOD_XML_TAG, 
"FChType.XMLReadExecutableType", WARNING 
End Function 



Private Sub XMLWriteProperties(xml As String) 



20 '* Writes the properties to an xml String 

'* The xml string is return in the variable xml 
t*******^************************************^ 

On Error GoTo ErrorHandler 
Dim objDOMDocument As MSXML.DOMDocument 
25 Dim rootElement As MSXMLIXMLDOMEIement 
Dim childElement As MSXMLIXMLDOMEIement 
Dim NewSize As Long 

NewSize = (CLng(mBody.Elements.Count \ 32) + 1) * 32 'change trace size 
mlnterface.ChangeTraceSize NewSize 
30 Set objDOMDocument = New MSXML.DOMDocument 

Set rootElement = objDOMDocument.CreateElementfChartSource") 

Set objDOMDocument.documentElement = rootElement 

rootElement. SetAttribute "ExecutableTypeName", ExecutableTypeName 
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mlnterface.XMLWriteProperties rootElement 
mBody.XMLWritePropertiesrootElement 
xml = M <?xml version= ,H, 1.0 l,M ?>" & vbCrLf & _ 

Replace(objDOMDocumentxml, "><", ">" & vbCrLf & M <") 
5 Exit Sub 
ErrorHandler: 

ErrorMessage Err.Number, TChType.XMLWriteProperties M p 
UNEXPECTED 
End Sub 
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Class FChlnterface 



i** ****** ************************* 



********************************************** 

Friend Sub XMLReadProperties(xmlElement As 
MSXMLJXMLDOMEIement) 



************ 



20 '* Reads the properties of the FChlnterface object from a XML object 

On Error GoTo ErrorHandler 
Dim childElement As MSXMLJXMLDOMEIement 
Dim childElements As MSXML.IXMLDOMNodeList 
25 Dim strSectionName As String 
Dim IngResult As Long 

Dim IfSections As S7_Component_lnterface_Editor_Server.llfxCollection 
CalledBylntemal = True 

Set mlfServer = New S7_Component_lnterface_Editor_Server. Interface 
30 If Not mChartType Is Nothing Then 

IngResult = mlfServer.Create(S7_FB_IF) 
□self Not mChartTask Is Nothing Then 

IngResult = mlfServer.Create(S7_OB_IF) 
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End If 

Set mRootNode = mlf Server. RootNode 
If mRootNode.HasChildren Then 
Set IfSections = mRootNode.Children 
5 Set childElements = xmlElementchildNodes 

For Each childElement In childElements 
If childElementTagName = "Section" Then 
strSectionName = XMLGetAttribute(childElement, "Name") 
Select Case strSectionName 
10 Case 'VARJNPITT 

XMLCreateSection childElement, lfSections.Getltem("IN") 
Case 'VAR_OUTPUT' 

XMLCreateSection childElement, lfSections.Getltem("OUr') 
Case 'VAR_IN_OUT' 
is XMLCreateSection childElement, lfSections.Getltem("IN_OUT") 

Case "VAR" 

XMLCreateSection childElement, lfSections.Getltem("STAT') 
Case "VAR_TEMP" 
XMLCreateSection childElement, lfSections.Getltem('TEMP") 
20 Case Else 

End Select 
Else 

ErrorMessage ERRMOD_XML_TAG, 
"FChlnterface-XMLReadProperties", WARNING, _ 
25 childElementTagName 
End If 
Next 

Debug. Print 
Else 

30 On Error GoTo 0 

ErrorMessage ERRMOD_INTERFACE_CREATION_FAILED, 
"FChlnterface-XMLReadProperties", ALARM 
End If 
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CalledBylnternal = False 
mModifled = False 
Exit Sub 
ErrorHandler: 
CalledBylnternal = False 

ErrorMessage Err.Number, "FChlnterface.XMLReadProperties", 
UNEXPECTED 
End Sub 



***********************.**.»*.*.», 

Private Sub XMLCreateSection(xmlElement As 
MSXML.IXMLDOMEIement, _ 
IF Item As 

S7_ComponentJnterface_Editor_Server.lnterfaceltem) 



**************** 



Reads the properties of an Interface section from a XML object 



********** 



On Error GoTo ErrorHandler 

Dim childElement As MSXML.IXMLDOMEIement 

Dim childElements As MSXML.IXMLDOMNodeList 

Dim childltem As S7_Component_lnterface_Editor_Server.lnterfaceltem 
Dim IngResult As Long 

Dim pvarCorrectnessBar As Variant 

Dim strAttrValue As String 

Dim xmlAttr As MSXML. IXMLDOMAttribute 

Dim IChartType As FChType 

If IFItem Is Nothing Then GoTo ErrorHandler 

Set childElements = xmlElementchildNodes 

For Each childElement In childElements 

If childElementTagName = "Item" Then 

Set childltem = IFItem.NewChild(-l) 

childltem.ltemProtectionMode = MODE_EDIT 
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strAttrValue = XMLGetAttribute(child Element, "Name") 
If Len^strAttrValue) > 0 Then 
IngResult = childltem.SetAttributeString(ATTRIBUTE_NAME, 
strAttrValue, _ 
5 pvarCorrectnessBar) 

If IngResult <> 0 Then GoTo ErrorHandler 
End If 

strAttrValue = XMLGetAttribute(childElement, TChType") 1 special 
handling of Subcharts 
10 If Len(strAttrValue) > 0 Then 

Set IChartType = mChartTypes.Item(strAttrValue) 
If Not IChartType Is Nothing Then 
strAttrValue = IChartType.ExecutableName 
Set IChartType = Nothing 
15 End If 

End If 

If Len(strAttrValue) = 0 Then 

strAttrValue = XMLGetAttribute(childElement, "Type") 
End If 

20 If Len(strAttrValue) > 0 Then 

IngResult = childltem.SetAttributeString(ATTRIBUTE_TYPE, 
strAttrValue, _ 
pvarCorrectnessBar) 

If IngResult <> 0 Then GoTo ErrorHandler 
25 End If 

strAttrValue = XMLGetAttribute(childElement, "Init") 
If Len(strAttrValue) > 0 Then 
IngResult = child ltem.SetAttributeString(ATTRIBUTEJNITIAL l 
strAttrValue, 
30 pvarCorrectnessBar) 

If IngResult <> 0 Then GoTo ErrorHandler 
End If 

XMLCreateSection childElement, childltem 
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'must be called before "Mode" is set (if it is Readonly ...) 

strAttrValue = XMLGetAttribute(childElement, "Mode") 
If Len(strAttrValue) > 0 Then 
If IsNumeric(strAttrValue) Then 
5 childltem.ltemProtectionMode = CLng(strAttrValue) 

Elself ItemProtectionModes.Exists(strAttrValue) Then 
childltem.ltemProtectionMode = 
ItemProtectionModes(strAttrValue) 
End If 
io End If 

Elself childElementTagName = "Attributes" Then 
For Each xmlAttr In childElementAttributes 
IngResult = IFItem.SetUDA(xmlAttr.Name, xmlAttr. Value) 
If IngResult <> 0 Then GoTo ErrorHandler 
15 Next 

Elself childElementTagName = "Comment" Then 
strAttrValue = child Element.Text 
If Len(strAttrValue) > 0 Then 

IngResult = IFItem.SetAttributeString(ATTRIBUTE_COMMENT, 
20 strAttrValue, _ 

pvarCorrectnessBar) 

If IngResult <> 0 Then GoTo ErrorHandler 
End If 
Else 

25 ErrorMessage ERRMOD_XML_TAG, 

"FChlnterface.XMLReadProperties", WARNING, _ 
childElementTagName 
End If 
Next 
30 Exit Sub 
ErrorHandler 

ErrorMessage Err. Number, "FChlnterface.XMLCreateSection", 
UNEXPECTED 
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End Sub 

i***********************************^^ 

5 Friend Sub XMLWriteProperties(xmlElement As 
MSXMLIXMLDOMEIement) 



'* Writes the properties of the FChlnterface object to a XML object 
i****************************************************************^ 

10 On Error GoTo ErrorHandler 

Dim childElement As MSXML.IXMLDOMEIement 
Dim Section Element As MSXMLIXMLDOMEIement 
Set childElement = 
xmlElement.ownerDocument.CreateElement( ,, lnterface M ) 
15 xmlElementappendChild childElement 

If Not mChartType Is Nothing Then ' these sections do not exist in OBs = 
Tasks 

If mlfServer.lnParameter.Count > 0 Then 
Set SectionElement = 
20 childElement.ownerDocument.CreateElementrSection") 
childElementappendChild SectionElement 
SectionElement.SetAttribute "Name", •VARJNPUT" 
XMLSectionAsText mlfServer.lnParameter, SectionElement 

End If 

25 If mlfServer.OutParameter.Count > 0 Then 

Set SectionElement = 
childEIement.ownerDocumentCreateElement("Section") 
childElementappendChild SectionElement 
SectionElement.SetAttribute "Name", "VARJDUTPUT" 
30 XMLSectionAsText mlfServer.OutParameter, SectionElement 

End If 

If mlfServer.lnOutParameter.Count > 0 Then 
Set SectionElement = 
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childElement.ownerDocument.CreateElement( H Section") 
childElementappendChild SectionElement 
SectionElement.SetAttribute "Name", 'VARJNJDUT" 
XMLSectionAsText mlf Server. I nOutParameter, SectionElement 
5 End If 

If mlfServer.StaticData.Count > 0 Then 
Set SectionElement = 
childElement.ownerDocument.CreateElement("Section") 
child ElementappendChild SectionElement 
io SectionElement.SetAttribute "Name", 'VAR" 

XMLSectionAsText mlfServer.StaticData, SectionElement 
End If 
End If 

If mlfServer.DynamicData.Count > 0 Then 
is Set SectionElement = 

childElement.ownerDocument.CreateElement("Section") 
childElement. appendChild Section Element 
Section Element SetAttribute "Name", "VAR_TEMP" 

XMLSectionAsText mlfServer.DynamicData, SectionElement 
20 End If 

Exit Sub 

ErrorHandler: 

ErrorMessage Err.Number, "FChlnterface.XMLWriteProperties", 
UNEXPECTED 
25 End Sub 



Private Sub XMLSectionAsText(Section As 
30 S7_ComponentJnterface_Editor_Server.llfxCollectlon, _ 

xmlElement As MSXML.IXMLDOMEIement) 

'* Writes the properties of an Interface section to a XML object 
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i********************** ***************** ********************** **************** 

On Error GoTo ErrorHandler 
Dim ItemCount As Long 
Dim Index As Long 

5 Dim IFItem As S7_ComponentJnterface_Editor_Server.lnterfaceltem 
ItemCount = Section.Count - 1 
For Index = 0 To ItemCount 

Set IFItem = Section.Getltem(lndex) 
XMLItemAsText IFItem, xmlElement 
10 Next 

Exit Sub 
ErrorHandler: 

ErrorMessage Err.Number, TChlnterface.XMLSectionAsText", 
UNEXPECTED 
15 End Sub 



Private Sub XMLItemAsText(IFItem As 
20 SZ^ComponentJnterface^Editor^Server.lnterfaceltem, _ 

xmlElement As MSXML.IXMLDOMEIement) 

I***************************************************************************** 

'* Writes the properties of an Interface item to a XML object 
I************************************************************** *************** 

25 On Error GoTo ErrorHandler 
Dim Status As Boolean 
Dim InitValue As Variant 
Dim InitString As String 
Dim Pos As Long 

30 Dim udaList As S7_ComponentJnterface_Editor_Server.llft(Collection 
Dim udaltem As S7J2omponentJnterface_Editor_Server.lUDA 
Dim i As Long 
Dim udaCount As Long 
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Dim strComment As String 

Dim childElement As MSXM L. IXM LDOMEIement 

Dim UDAEIement As MSXML.IXM LDOM Element 

Dim strType As String 
5 Dim strFChType As String 

Dim TypelD As S7TypeConstants 

Dim Typelnfo As Variant 

Dim SubTypelD As S7TypeConstants 

Dim SubTypelnfo As Variant 
10 Dim Result As Long 

Set childElement = xmlElement.ownerDocument.CreateElement("ltem") 

xmlElementappendChild childElement 

childElementSetAttribute "Name", IFItem.Name 

If ItemProtectionModes.Exists(IFItem.ltemProtectionMode) Then 
15 childElementSetAttribute "Mode", 

ItemProtectionModes(IFItem.ltemProtectionMode) 

Else 

childElementSetAttribute "Mode", IFItem.ltemProtectionMode 
End If 

20 Set udaList = IFItem.udaList 
udaCount = udaList. Count 
If udaCount > 0 Then 
Set UDAEIement = 

xmlElementownerDocument.CreateElement("Attributes") 
25 childElementappendChild UDAEIement 

For i = 0 To udaCount - 1 
Set udaltem = udaListGetltem(i) 
UDAEIementSetAttribute udaltem.Key, udaltem.Value 
Next 

30 End If 

strType = IFItem.GetAttributeString(ATTRIBUTE_TYPE, Status) 
If Mid$(strType, 1,3) = "FB " Then strType = Replace(strType, " ", "") 
Result = IFItem.GetTypelnfo(TypelD, Typelnfo, SubTypelD, SubTypelnfo) 
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If TypelD * TYPE_S7_TYPE_FB Then 
strFChType = SearchForSubChart(strType) 
If Len(strFChType) > 0 Then 
ChildElementSetAttribute "FChType", strFChType 
5 End If 

End If 

childElementSetAttribute "Type", strType 
If InterfaceltemHasChildren(strType) Then 
XMLSectionAsText IFItem.Children, childElement 
10 Else 

InitString = GetlnitString(IFItem) 
If Len(lnitString) > 0 Then 

childElementSetAttribute "Init", InitString 
End If 
15 End If 

XMLWriteTextNode childElement, "Comment", IFItem.Comment 
Exit Sub 
ErrorHandler: 

ErrorMessage Err. Number, "FChlnterface.XMLItemAsText", 
20 UNEXPECTED 
End Sub 



Class FChBody 

25 

Friend Sub XMLReadProperties(xmlElement As 
MSXML.IXMLDOMEIement) 

i*************** ********************************* ***************************** 
30 '* Reads the properties of a FChBody object from a XML object 



On Error GoTo ErrorHandler 

Dim childElement As MSXML.IXMLDOMEIement 
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Dim childElements As MSXMLIXMLDOMNodeList 
Set mElements = New FChElements 
Dim objFChElement As FChElement 
Set mElements.Body = Me 
5 Set mLinks = New FChLinks 
Set mLinks. Body = Me 
Set childElements = xmlElementxhildNodes 
For Each child Element In childElements 
Select Case child Element TagName 
10 Case "Elements" 

mElements.XMLReadPropertieschildElement 
Case "Links" 

mLinks.XMLReadProperties childElement 
Case Else 

15 ErrorMessage ERRMOD_XML_TAG, 

"FChBody.XMLReadProperties", WARNING, child ElementTagName 
End Select 
Next 
Exit Sub 
20 ErrorHandler: 

ErrorMessage Err.Number, "FChBody.XMLReadProperties", 
UNEXPECTED 
End Sub 



25 



ft*********************** 



**♦*******»«**♦«*****♦»»*♦»*****•««♦«**»**«♦* 

Friend Sub XMLWriteProperties(xmlElement As 
MSXMLJXMLDOMEIement) 

30 '* Writes the properties of FChBody object to a XML object 

'*********************************^ 



On Error GoTo ErrorHandler 

Dim childElement As MSXMLIXMLDOMEIement 
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Set childElement = xmlEIement.ownerDocument.CreateElementfBody") 
xmlElement.appendChild childElement 
mElements.XMLWriteProperties childElement 
mLinks.XMLWriteProperties childElement 
5 Exit Sub 
ErrorHandler: 

ErrorMessage Err.Number, "FChBody.XMLWriteProperties", 
UNEXPECTED 
End Sub 



Class FCh Elements 

15 Friend Sub XMLReadProperties(xmlElement As 
MSXML.IXMLDOMEIement) 

'* Reads the properties of a FChElements object from a XML object 

20 On Error GoTo ErrorHandler 

Dim objFChElement As FChElement 
Dim childElement As MSXML.IXMLDOMEIement 
Dim childElements As MSXMLIXMLDOMNodeList 
Set child Eloments = xmlElementchild Nodes 
25 mlndex = 0 

For Each childElement In childElements 
If childElementTagName = "Element" Then 
Set objFChElement = New FChElement 
Set objFChElementBody = mBody 
30 objFChElementXMLReadProperties childElement 

If mlndex <= objFChElementNumber Then mlndex = 
objFChElement.Number + 1 

mBody. RaiseCreated Event objFChElement 
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mCol.Add objFChElement, Format$(objFChElement.Number) 
Else 

ErrorMessage ERRMOD_XML_TAG , 
"FChElements.XMLReadProperties", WARNING, _ 
5 child ElementTagName 
End If 
Next 
Exit Sub 
ErrorHandler: 

0 ErrorMessage Err.Number, "FChElements.XMLReadProperties", 
UNEXPECTED 
End Sub 



20 



Friend Sub XMLWriteProperties(xmlElement As 
MSXML.IXMLDOMEIement) 

'* Writes the properties of FChElements object to a XML object 

On Error GoTo ErrorHandler 

Dim objFChElement As FChElement 

Dim childElement As MSXML.IXMLDOMEIement 

Set childElement = 

25 xmlElement.ownerDocument.CreateElement("Elements") 
xmlElement.appendChild childElement 
For Each objFChElement In mCol 

objFChElementXMLWriteProperties childElement 
Next 

30 Exit Sub 

ErrorHandler: 

ErrorMessage Err.Number, "FChElements.XMLWriteProperties", 
UNEXPECTED 
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End Sub 



i**********************************************^ 
5 Class FChLinks 

Friend Sub XMLReadProperties(xmlElement As 
MSXML.IXMLDOMEIement) 

io ** Reads the properties of a FChLinks object from a XML object 

On Error GoTo ErrorHandler 
Dim objFChlink As FChLink 
Dim childEiement As MSXML.IXMLDOMEIement 
15 Dim childElements As MSXMLIXMLDOMNodeList 
Set childElements = xmlElement.childNodes 
For Each childEiement In childElements 
If childElement.TagName = "Link" Then 
Set objFChlink = New FChLink 
20 Set objFChlink. Body = mBody 

objFChlink.XMLRead Properties childEiement 

If mlndex <= objFChlink.Number Then mlndex = objFChlink.Number + 

1 

mBody.RaiseCreatedEvent objFChlink 
25 mCol.Add objFChlink, Format$(objFChlink.Number) 

objFChlink. UpdateLinksAdd 
Else 

ErrorMessage ERRMOD_XML_TAG, 
"FChLinks.XMLReadProperties , \ WARNING, childElement.TagName 
30 End If 

Next 
Exit Sub 
ErrorHandler 
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ErrorMessage Err.Number, "FChLinks.XMLReadProperties", 
UNEXPECTED 
End Sub 

5 



Friend Sub XMLWriteProperties(xmlElement As 
10 MSXML.IXMLDOMEIement) 

'* Writes the properties of FChLinks object to a XML object 

On Error GoTo ErrorHandler 
15 Dim objFChlink As FChLink 

Dim childElement As MSXML. IXMLDOMEIement 

Set childElement = xmlElement.ownerDocument.CreateElement("Links") 

xmlElementappendChild childElement 

For Each objFChlink In mCol 

20 objFChlink.XMLWriteProperties childElement 

Next 
Exit Sub 
ErrorHandler 

ErrorMessage Err.Number, "FChLinks.XMLWriteProperties", 
25 UNEXPECTED 
End Sub 



******************************************* 

30 Class FChElement 

•**"**«**«*******.*~**.*^^ 

Friend Sub XMLReadProperties(xmlElement As 
MSXML.IXMLDOMEIement) 
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i******************************************* ****** **************************** 

'* Reads the properties of a FChElement object from a XML object 
i***************************************************************************** 

On Error GoTo ErrorHandler 
5 Dim tmpElementType As String 
Dim Inglndex As Long 

Dim childElement As MSXML. IXMLDOMEIement 
Dim childEIements As MSXML IXMLDOMNodeList 
Dim strOutLinks As String 
10 Dim strCommentPosition As String 

Dim arrayCommentPositionO As String 
tmpElementType = XMLGetAttribute(xmlElement, "Type") 
If Not ElementTypeDic.Exists(tmpElementType) Then 
On Error GoTo 0 
15 ErrorMessage ERRMOD_UNKOWN_ELEMENT_TYPE, 

"FChElementXMLReadProperties", ALARM, _ 
tmpElementType 
Else 

ElementType = ElementTypeDic(tmpElementType) 
20 mNumber = XMLGetAttribute(xmlElement, "Number") 

mCaption = XMLGetAttribute(xmlElement, "Caption") 
mDefaultCaption = (mCaption = "%D%") 
If m ElementType = TGoto Then 
mGotoTargetNumber = XMLGetAttribute(xmlElement, 
"GotoTargetNumber") 
End If 

If mElementType = TComment Then 
strCommentPosition = XMLGetAttribute(xmlElement, 
"CommentPosition") 

If Len(strCommentPosition) > 0 Then 
arrayCommentPosition = Split(strCommentPosition, ",") 
If Not IsEmpty(arrayCommentPosition) Then 
If UBound(arrayCommentPosition) = 3 Then 
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For Inglndex = 0 To 3 
mCommentPosition(lnglndex) = 
CLng(arrayCommentPosition(lnglndex)) 
Next 

5 End If 

End If 
End If 
End If 

Set child Elements = xmlElementxhildNodes 
io For Each childElement In childElements 

Select Case childElementTagName 
Case "SourceCode" 

If (mElementType = TAction) Or (mElementType = TDecision) Then 
mSourceCode = childElementText 
15 Else 

ErrorMessage ERRMOD_XML_TAG, 
"FChElement.XMLReadProperties", WARNING, _ 
childElementTagName 
End If 

20 Case "Comment" 

mComment = childElementText 
Case "Instance" 
If mElementType = TSubChart Then 
Set mlnstance = New FChlnstance 
25 Set mlnstance.Body = mBody 

Set mlnstance.Element = Me 

mlnstance.XMLReadProperties childElement 
Else 

ErrorMessage ERRMOD_XML_TAG, 
30 "FChElement-XMLReadProperties", WARNING, _ 
childElementTagName 
End If 
Case Else 
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ErrorMessage ERRMOD_XML_TAG, 
"FChElementXMLReadProperties", WARNING, _ 
child Element.TagName 
End Select 
5 Next 
End If 
Exit Sub 
ErrorHandler: 

ErrorMessage Err.Number, "FChElementXMLReadProperties", 
10 UNEXPECTED 
End Sub 



15 Friend Sub XMLWriteProperties(xml Element As 
MSXML.IXMLDOMEIement) 

'* Writes the properties of FChEiement object to a XML object 

20 On Error GoTo ErrorHandler 

Dim childElement As MSXML.IXMLDOMEIement 

Set childElement = 
xmlElement.ownerDocument.CreateElement("Element M ) 

xmlElement.appendChild childElement 
25 childElementSetAttribute "Number, mNumber 

childElementSetAttribute "Type", ElementTypeNames(mElementType) 

childElementSetAttribute "Caption", mCaption 

If mElementType = TGoto Then 
childElementSetAttribute "GotoTargetNumber", mGotoTargetNumber 
so End If 

XMLWriteTextNode childElement, "Comment", mComment 
If (mElementType = TAction) Or (mElementType = TDecision) Then 
XMLWriteTextNode childElement, "SourceCode", mSourceCode 
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End If 

If mElementType = TComment Then 
childElement.SetAttribute"CommentPosition", 
Str$(mCommentPosition(0)) & "," & _ 

5 Str$(mCommentPosition(1 )) & "," & 

Str$(mCommentPosition(2)) & "," & 
Str$(mCommentPosition(3)) 

End If 

If Not mlnstance Is Nothing Then 
10 mlnstance.XMLWriteProperties childElement 

End If 
Exit Sub 
ErrorHandler 

ErrorMessage Err. Number, "FChElement.XMLWriteProperties", 
15 UNEXPECTED 
End Sub 



20 Class FChLink 



25 



!*★** ********* 



Friend Sub XMLReadPropertiesfxmiElement As 
MSXML.IXMLDOMEIement) 

'* Reads the properties of a FChLink object from a XML object 



On Error GoTo ErrorHandler 

mNumber = XMLGetAttribute(xmlElement, "Number") 
30 mSourceNumber = XMLGetAttribute(xmlElement, "SourceElement") 
mTargetNumber = XMLGetAttribute(xmlElement, "TargetElement") 
mlndex = XMLGetAttribute(xmlElement, "Index") 
mCaption = XMLGetAttribute(xmlElement, "Caption") 
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mDefaultCaption = (mCaption = "%D%") 
Exit Sub 
ErrorHandler: 

ErrorMessage Err.Number, "FChLink.XMLReadProperties", UNEXPECTED 
s End Sub 



************************************ ************ ****************************** 

Friend Sub XMLWriteProperties(xmlElement As 
10 MSXML.IXMLDOMEIement) 

'* Writes the properties of FChLink object to a XML object 
****************************************************************************** 

On Error GoTo ErrorHandler 
15 Dim childElement As MSXML.IXMLDOMEIement 
Dim objFChlink As FChLink 

Set childElement = xmlElementownerDocument.CreateEIement("Link") 

xmlElement.appendChild childElement 

childElement.SetAttribute "Number", mNumber 
20 childElement.SetAttribute "SourceEIement", mSourceNumber 

childElement.SetAttribute "TargetElement", mTargetNumber 

childElement.SetAttribute "Index", mlndex 

childElement.SetAttribute "Caption", mCaption 

Exit Sub 
25 ErrorHandler: 

ErrorMessage Err.Number, "FChLink.XMLWriteProperties , \ UNEXPECTED 
End Sub 



30 

Class FChlnstance 

**********************************************************i 

Friend Sub XMLReadProperties(xmlElement As 
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MSXML.IXMLDOMEIement) 

'* Reads the properties of a FChlnstance object from a XML object 

5 On Error GoTo ErrorHandler 

Dim childElement As MSXML.IXMLDOMEIement 

Dim childElements As MSXML.IXMLDOMNodeList 

Dim mAssignment As FChAssignment 

Dim mSubChartType As FChType 
10 Dim strlfVersion As String 

mChartType = XMLGetAttribute(xmlElement, "ChartType") 

mName = XMLGetAttribute(xmlElement, "Name") 

strlfVersion = XMLGetAttribute(xmlElement, "InterfaceVersion") 

If IsNumeric(strlfVersion) And Len(strlfVersion) > 0 Then 
is mlnterfaceVersion = Format$(strlfVersion) 

Else 

mlnterfaceVersion = 0 
End If 

Set mSubChartType = ChartType 
20 Set childElements = xmlElement.childNodes 
For Each childElement In childElements 
Select Case childElement.TagName 
Case "Assignment" 
Set mAssignment = New FChAssignment 
25 mAssignmentXMLReadProperties childElement 

If Not mSubChartType Is Nothing Then 

Set mAssignmentlfxServer = mSubChartType.lnterface.lfServer 
End If 

If AssignmentExists(mAssignment.Name) Then 
30 Set mAssignment = Nothing 

ErrorMessage ERRMOD_DUPLICATE_ASSIGNMENT, 
"FChlnstance.XMLReadProperties", _ 
WARNING, mAssignment.Name 
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Else 

mCol.Add mAssignment, mAssignment.Name 
End If 

Set mAssignment = Nothing 
5 Case Else 

ErrorMessage ERRMOD_XML_TAG, 
"FChlnstance.XMLReadProperties", WARNING, _ 
childElementTagName 
End Select 
10 Next 

Set mSubChartType = Nothing 
Exit Sub 
ErrorHandler: 

ErrorMessage Err.Number, "FChlnstance.XMLReadProperties", 
15 UNEXPECTED 
End Sub 



20 Friend Sub XMLWriteProperties(xmlElement As 
MSXML.IXMLDOMEIement) 

****** ************************************************************** ********** 

'* Writes the properties of FCh Instance object to a XML object 

'* *********************************************** ************************* **** 

25 On Error GoTo ErrorHandler 

Dim childElement As MSXML.IXMLDOMEIement 

Dim mAssignment As FChAssignment 

Set childElement = 
xmlElement.ownerDocument.CreateElement( M lnstance") 
30 xmlElement.appendChild childElement 

childElement.SetAttribute "Name", mName 

childElement.SetAttribute "InterfaceVersion", mlnterfaceVersion 

childElement.SetAttribute "ChartType", mChartType 



52 



WO 01/73546 



PCT/US01/09429 



For Each mAssignment In mCol 

mAssignment.XMLWritePropertieschildElement 
Next 

Exit Sub 

5 ErrorHandler: 

ErrorMessage Err.Number, "FChlnstance.XMLWriteProperties", 
UNEXPECTED 
End Sub 



10 

Class FChAssignment 

Friend Sub XMLReadProperties(xmlElement As 
is MSXML.IXMLDOMEIement) 

'* Reads the properties of a FChAssignment object from a XML object 

On Error GoTo ErrorHandler 
20 mName = XMLGetAttribute(xmlElement, "Name") 
mValue = XMLGetAttribute(xmlElement, "Value") 
Exit Sub 
ErrorHandler: 

ErrorMessage Err.Number, "FChAssignmentXMLReadProperties", 
25 UNEXPECTED 
End Sub 



30 Friend Sub XMLWriteProperties(xmlElement As 
MSXML.IXMLDOMEIement) 

'* Writes the properties of FChAssignment object to a XML object 
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i************ ****************************************** *********************** 

On Error GoTo ErrorHandler 

Dim childElement As MSXMLIXMLDOMEIement 

Dim mAssignment As FChAssignment 
5 Set childElement = 

xmlElement.ownerDocument.CreateElement("Assignment") 

xmlElementappendChild childElement 

childElement.SetAttribute ,, Name ,, I mName 

childElement.SetAttribute 'Value", mValue 
10 Exit Sub 
ErrorHandler: 

ErrorMessage Err.Number, M FChAssignment.XMLWriteProperties", 
UNEXPECTED 
End Sub 



Global Subroutines and Functions 

20 

Public Sub XMLWriteTextNode(xmlElement As 

MSXMLIXMLDOMEIement, Name As String, Data As String) 

i***************************************************************************** 

■* Writes a property as text node to a XML object 
25 '* Properly name is Name, property Data is in Data 

On Error GoTo ErrorHandler 
Dim childElement As MSXMLIXMLDOMEIement 
Dim TextElement As MSXMLIXMLDOMText 
30 If Len(Data) > 0 Then 

Set childElement = xmlElementownerDocument.CreateElement(Name) 

xmlElementappendChild childElement 

Set TextElement = xmlElement.ownerDocument.createTextNode(Data) 
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childElementappendChild TextElement 
End If 
Exit Sub 
ErrorHandler: 

ErrorMessage Err.Number, "global.XMLWriteTextNode", UNEXPECTED 
End Sub 



10 Public Function XMLCreateRootElement(ByVal TagName As String) As 
MSXML.IXMLDOMEIement 

'* Creates an XML root element with the specified TagName 
»**********************************^ 

15 On Error GoTo ErrorHandler 

Dim objDOMDocument As MSXML DOM Document 

Dim rootElement As MSXML.IXMLDOMEIement 

Set objDOMDocument = New MSXML. DOMDocument 

Set rootElement = objDOMDocument.CreateElement(TagName) 

20 Set objDOMDocument.documentEIement = rootElement 
Set XMLCreateRootEiement = rootElement 
Exit Function 
ErrorHandler: 

ErrorMessage Err.Number, "global.XMLCreateRootElement", 
25 UNEXPECTED 
End Function 



********************************** ,ih************^ 

30 Public Function XMLCreateDocument(ByVal Contents As Variant) As 

MSXML. DOMDocument 

•**********************************^^ 

•* Creates an XML document with the specified xml Contents 
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****** ************************************************** ********************** 

On Error GoTo ErrorHandler 
Dim xml As String 

Dim objDOMDocument As MSXMLDOMDocument 
5 Dim rootElement As MSXMLIXMLDOMEIement 

Set objDOMDocument = New MSXMLDOMDocument 
xml = Contents 

If objDOMDocument.loadXML(xml) Then 
Set XMLCreateDocument = objDOMDocument 
10 Else 

Set XMLCreateDocument = Nothing 
On Error GoTo 0 

ErrorMessage ERRMOD_XML_PARSER, 
"global.XMLCreateDocumenf, ALARM 
is End If 

Exit Function 
ErrorHandler: 

ErrorMessage Err.Number, "global.XMLCreateDocumenf, UNEXPECTED 
End Function 



i********* ************************************************** ****************** 

Public Function XMLGetAttribute(xmlElement As 

MSXML.IXMLDOMEIement, Name As String) As String 

i********* ******************************************************************** 

'* Gets an Attribute from an XML element (needed because of error handling) 



On Error GoTo ErrorHandler 

XMLGetAttribute = xmlElement.GetAttribute(Name) 
30 Exit Function 
ErrorHandler: 

XMLGetAttribute = 
End Function 
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************* *************** ************************************************** 

Public Sub ErrorMessage(ByVal Number As Long, _ 
5 ByVal Source As String, _ 

ByVal Severity As ErrorSeverity, _ 
Optional ByVal Addlnfo As String = "") 

'* Logs an Error message and raises an Error 

JQ '********************************************************************^^ 

Dim strTmp As String 
Dim IngErrorNumber As Long 
Dim IngHelpContextID As Long 
Select Case Severity 
is Case WARNING 1 Logging only, no error raised 

strTmp = objResourceAccess.GetResString(Number, "Error") 
If Len(Addlnfo) > 0 Then strTmp = strTmp & ": " & Addlnfo 
IngErrorNumber = vbObjectError + ERRMOD_BASE_NUMBER + 
Number 

20 IngHelpContextID = HELP_ON_ERRMODJ3ASE_NUMBER + 

Number 

PrintForDebug TraceFileName, strTmp & ": " & Source 
Case ALARM 1 Error is logged and Error is raised 

strTmp = objResourceAccess.GetResString(Number, "Error) 
25 If Len(Addlnfo) > 0 Then strTmp = strTmp & ": " & Addlnfo 

IngErrorNumber = vbObjectError + ERRMOD_BASE_NUMBER + 
Number 

IngHelpContextID = HELP_ON_ERRMOD_BASEJMUMBER + 
Number 

30 PrintForDebug TraceFileName, strTmp & ":" & Source 

Err.Raise IngErrorNumber, Source, strTmp, App.HelpFile, 
IngHelpContextID 

Case INTERNAL ' General "internal error" is raised, but detailed logged 
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strTmp = objResourceAccess.GetResString(Number, "Error") 
If Len(Addlnfo) > 0 Then strTmp = strTmp & M : " & Addlnfo 
IngErrorNumber = vbObjectError + ERRMOD_BASE_NUMBER + 
Number 

5 IngHelpContextID = HELP_ON_ERRMOD_BASE_NUMBER + 

Number 

PrintForDebug TraceFileName, strTmp & ":" & Source 

strTmp = objResourceAccess.GetResString(ERRMOD_INTERNAL, 

"Error) 

10 IngErrorNumber = vbObjectError + ERRMOD_BASEJM UMBER + 

ERRMODJNTERNAL 

IngHelpContextID = HELP_ON_ERRMOD_BASE_NUMBER + 
ERRMODJNTERNAL 

Err.Raise IngErrorNumber, Source, strTmp, App.HelpFile, 
15 IngHelpContextID 

Case UNEXPECTED ' Unknown error caused by VB or a 
subcomponent. Treated like warning 

PrintForDebug TraceFileName, Err. Description & ":" & Source 
Err.Raise Err.Number, Source, Err. Description, Err.HelpFile, 
20 Err.HelpContext 

Case CREATEFILE 

PrintForDebug TraceFileName, "START", True 
Case STEP7ERROR 

IngErrorNumber = vbObjectError + ERRMOD_BASE_NUMBER + 
25 Number 

IngHelpContextID = HELP_ON_ERRMOD_BASE_NUMBER + 
Number 

PrintForDebug TraceFileName, "STEP7 Error: " & 
Format$(lngErrorNumber) & ":" & Source 
30 End Select 
End Sub 
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What is claimed is: 

1. A method for representing industrial automation computer program code 
created using a graphical programming language tool that stores the created 
code in computer memory in an internal representation during execution, the 
method comprising the steps of: 

identifying industrial automation code in computer memory in the 
internal representation; and 

converting the code from the internal representation to a markup 
language format 

2. The method according to claim 1 , comprising the further step of causing 
the converted, markup-formatted code to be stored in a computer data 
storage device. 

3. The method according to claim 1, further comprising the step of 
transmitting the markup-formatted code over a network to a receiving 
computing device. 

4. The method according to claim 2, comprising the further steps of retrieving 
the markup-formatted code from the computer data storage device and 
converting the markup-formatted code to the internal representation in 
computer memory. 

5. The method according to claim 2, comprising the further steps of retrieving 
the markup-formatted code from the computer data storage device and 
representing the retrieved code in a corresponding graphic format on a 
computer display. 

6. The method according to claim 5, wherein the display of the markup- 
formatted code is facilitated by a browser. 

7. The method according to claim 2, wherein the markup language is XML. 
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8. The method according to claim 1, wherein the graphical programming 
language comprises a flowchart language. 

5 9. The method according to claim 1, wherein the graphical programming 
language comprises a ladder logic language. 

10. The method according to claim 1 , wherein the graphical programming 
language comprises a function block diagram language. 

10 

1 1 . The method according to claim 1 , wherein the graphical programming 
language comprises a sequential function chart. 

12. The method according to claim 7, wherein the graphical programming 
is language comprises a flowchart language. 

13. The method according to claim 7, wherein the graphical programming 
language comprises a ladder logic language. 

20 14. The method according to claim 7, wherein the graphical programming 
language comprises a sequential function chart. 

15. The method according to claim 7, wherein the graphical programming 
language comprises a sequential function block diagram language. 

25 

16. The method according to claim 1, wherein the graphical programming 
language tool comprises an editor and the conversion is triggered by invoking 
an editor command. 

30 17. The method according to claim 7, comprising the further steps of 

retrieving the markup-formatted code from the computer data storage device 
and representing the retrieved code in a corresponding graphic format on a 
computer display. 
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18. The method according to claim 17, wherein the step of displaying the 
code on a computer display device comprises the step of displaying the code 
with the use of a browser. 

19. A computer program product, for use in conjunction with a computing 
device, for creating industrial automation system control program code using 
a graphical language programming tool and storing the code in a computer 
memory in an internal representation during execution, the computer program 
product comprising a computer usable medium, the computer usable medium 
comprising: 

computer readable program code for identifying industrial automation 
control program code stored in computer memory in the internal 
representation; 

computer readable program code for converting the identified industrial 
automation control program code from the internal representation to a markup 
language format. 

20. The computer program product according to claim 19, the computer 
usable medium further comprising computer readable program code for 
causing the converted, markup-formatted code to be stored in a computer 
data storage device. 



21. The computer program product according to claim 20, the computer 
usable medium further comprising computer readable program code for 
causing retrieval of the markup-formatted code from the computer data 
storage device and converting the markup-formatted code to the internal 
representation in computer memory. 

22. The computer program product according to claim 19, the computer 
usable medium further comprising computer readable program code for 
causing the transmission of markup-formatted code over a network to a 
receiving computing device. 
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23. The computer program product according to claim 20, the computer 
program product further comprising computer readable program code for 
retrieving the markup-formatted code from the computer data storage device 

5 and representing the retrieved code in a corresponding graphic format on a 
computer display. 

24. The computer program product according to claim 23, wherein the 
display of the markup-formatted code is facilitated by a browser. 

25. The computer program product according to claim 19, wherein the 
markup language is XML 

26. The computer program product according to claim 19, wherein the 
graphical programming language comprises a flowchart language. 

27. The computer program product according to claim 19, wherein the 
graphical programming language comprises ladder logic. 

28. The computer program product according to claim 19, wherein the 
graphical programming language comprises function block diagrams. 

29. The computer program product according to claim 19, wherein the 
graphical programming language comprises a sequential function chart. 

30. The computer program product according to claim 25, wherein the 
graphical programming language comprises a flowchart language. 

31. The computer program product according to claim 25, wherein the 
graphical programming language comprises a ladder logic language. 

32. The computer program product according to claim 25, wherein the 
graphical programming language comprises a function block diagram 
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language. 

33. The computer program product according to claim 25, wherein the 
graphical programming language comprises a sequential function chart. 

34. The computer program product according to claim 19, further comprising 
computer readable program code for converting the markup-formatted code 
to the graphical programming language internal representation. 

35. The computer program product according to claim 19, wherein the 
computer program product graphical language programming tool comprises 
an editor, and wherein the conversion is triggered by invoking an editor 
command in the graphical programming language editor. 

36. A computer program product comprising a computer-readable storage 
medium and having data stored thereon, the data comprising a representation 
of industrial automation control code formatted in a markup language. 

37. The computer program product according to claim 36, wherein the 
markup language is XML. 

38. The computer program product according to claim 36, wherein the 
computer program product is coupled to a computing system that is remotely 
located from an industrial automation control system. 

39. A computer program product for permitting a user to create industrial 
automation control programs, the product comprising a computer-readable 
storage medium having computer program code stored on it, the code 
comprising: 

industrial automation graphical programming language code, the 
graphical programming language code comprising an editor adapted to permit 
the user to create industrial automation control code using graphical 
elements, the control code being stored in memory in an internal 
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representation during execution; and 

computer program code for converting industrial automation control 
code, stored in memory in the internal representation, from the internal 
representation to a markup language format 

5 

40. The computer program product according to claim 39, further comprising 
computer program code for converting industrial automation control code from 
the markup language format to the internal representation. 

10 41. A method for communicating the logical structure of industrial 

automation control program data in order to permit a plurality of application 
developers to create applications relating to the data, the method comprising 
the steps of: 

creating a schema defining a content model for markup language files 
15 generated by an industrial automation control program system; and 

posting the schema for access over a network by the application 
developers. 

42. The method according to claim 41, wherein the schema is an XML 
20 schema. 

43. The method according to claim 41, wherein the industrial automation 
control program data comprises flowchart programming instructions. 

25 44. A method for providing industrial automation control code from a server 
system, over a network to which the server system is coupled, and to a client 
system also coupled to the network, the method comprising the steps of: 
accessing a markup-formatted version of the control code; 
transmitting the accessed, markup-formatted control code over the 
30 network in connection with a network address corresponding to the client 
system, thereby causing the transmitted, markup-formatted control code to be 
received by the client system. 
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45. The method according to claim 44, wherein the client device, in response 
to the received markup-formatted control code, has transmitted to the server 
system data relating to the automation to which the markup-formatted control 
code is directed, and, further, wherein the server system has access to 

5 control code modified in response to receipt of the data from the client 
system, and wherein the modified control code is markup-formatted, the 
method comprising the further step of: 

transmitting the markup-formatted, modified control code over the 
network in connection with a network address corresponding to the client 
10 system, thereby 

causing the transmitted, modified, markup-formatted control code to be 
received by the client system. 

46. The method according to claim 45, wherein the step of transmitting the 
accessed, markup-formatted control code over the network comprises 
sending an electronic mail message. 

47. The method according to claim 45, wherein the step of transmitting the 
accessed, markup-formatted control code over the network comprises 
transmitting the code over the network via hypertext transfer protocol. 

48. The method according to claim 44, wherein the markup-format of the 
control code comprises XML. 

49. The method according to claim 44, wherein a second client system is 
coupled to the network, the method further comprising the step of: 

transmitting the accessed, markup-formatted control code over the 
network in connection with a network address corresponding to the second 
client system, thereby causing the transmitted, markup-formatted control code 
to be received by the second client system. 

50. The method according to claim 49, wherein the first client system is 
configured to reconvert the markup-formatted control code to a first internal 
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representation, and wherein the second client system is coupled to the 
network, the second client configured to reconvert the markup-formatted 
control code to a second internal representation. 

5 51 . A method for programming industrial automation control applications 
comprising the steps of: 

providing a computer system coupled to a network; 
configuring the first computer system to receive over the network 
transmissions of data from a plurality of industrial automation program 
10 developer systems; and 

receiving data from the plurality of industrial automation program 
developer systems program code in a markup language format. 

52. The method according to claim 51, wherein the markup language is XML. 
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</SECTION> 

<BODY> 
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